% pseudo-halftone font with 65 lines that move right and up
mode_setup; q:=savepen;
w#:=2.5pt#; font_quad:=w#; designsize:=8w#;

for i=0 upto 64: beginchar(i+ASCII"0",w#,w#,0); pickup q;
 draw (0,h*i/64)--(w,h*i/64); draw(w*i/64,0)--(w*i/64,h); endchar;
 endfor
end.